home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
language
/
modula.zoo
/
_defn_numio.def
< prev
next >
Wrap
Text File
|
1988-04-26
|
1KB
|
39 lines
DEFINITION MODULE NumIO; (* Hans Endl 9. 1. 86 *)
(* 7. 9. 86 *)
FROM SYSTEM IMPORT ADDRESS, BYTE, WORD;
TYPE
dataform = (byte, word, long);
transtype = RECORD
CASE format: dataform OF
byte: byte3, byte2, byte1, byte0: BYTE |
word: word1, word0: WORD |
long: longword: LONGINT
END
END;
(* byte 3 ist das höchstwertige Byte *)
PROCEDURE WriteCard (n: CARDINAL; f: CARDINAL);
PROCEDURE WriteInt (n: INTEGER; f: CARDINAL);
PROCEDURE WriteHexByte (b: BYTE);
PROCEDURE WriteHexDigit (n: CARDINAL);
PROCEDURE WriteHexWord (n: WORD);
PROCEDURE WriteHexLong (n: LONGINT);
PROCEDURE WriteFixWord (n: WORD; f: CARDINAL);
PROCEDURE WriteLong (n: LONGINT; f: CARDINAL);
PROCEDURE WriteNum (n: WORD; base, form: CARDINAL; spaces: BOOLEAN);
END NumIO.